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! RPGII Run-Time i torery spec itic macros and symbols 
File: RPGLIB.REQ, Edit: DG1001 


MARESEEEOSILILIIIIS EET ETT TT Tce c eee r icici ec icti cist iii ici iii iii ty 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 


® 

a 

® 

® 

* 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ 
: ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i AND SHOULD NOT BE CONSTRUSD AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
® 

® 

® 

* 

* 

® 


!t DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOAR ERR REE EAEREAA AERA AAA 
! 


Author: Debess Grabazs, 24-May-1983 
1-001 - Original. DG 24-May-1983 


'¢ 

! This file is the master source for RPGLIB.L32. P 

! It contains definitions for macros and symbols used internally to the 
RPGII Run-Time Library. 


LINKAGE 

JSB_STR= JSB 
(REGISTER = 0, REGISTER = 1 , REGISTER = 2): 
NOTUSED (9, 16, 11), 

JSB_D= JSB 
(REGISTER = Q. REGISTER = 1 ; REGISTER = 0, REGISTER = 1): 

USED (6, 7. 8 9, 10, 11); 

JSB_67= JSB 
(REGISTER = 6, REGISTER = 7): 
NOPRE SERVE Go. %. 4. 5, a7) 
NOTUSED (8, 9. 16, 11): 

JSB_678= JSB 
(REGISTER = 6, REGISTER = 7 REGISTER = 8): 
NOPRESERVE 2. Se.Be Se Oe fe O 
NOTUSED (9, 16, 11); 


JSB_6789= JSB 


-$255$DUA28: CRPGRTL.SRCIJRPGLIB.REQ;1 
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Sep-19 VAX-11 Bliss-32 V4.0-7 Page 2. 
1b-te Het 7 93: 98: 3 "$255$DUA28: SERPGRTL sre RPGLIB.REQ;1 ° (1) | 
=. REGISTER = 7 REGISTER = 8, REGISTER = 9): 
. ) | 

0, 11): | 
¢ LIBRARY cet ! SYS$SLIBRARY:STARLET.L32 
REQUIRE ‘RTLIN:RPGDEF'; ' Context urea definitions 


. | 
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3 ROG? File: RPGDEF.REQ, Edit:LPT1015 

r4 i 
: ROdey i peeeeeeeererereeeeeetereretereeeerererererererereerereteeeererereeeerereteee | 
: Rope? '® * 
; k0070 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

: k0O71 '® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 

3 Roore 0 i. ALL RIGHTS RESERVED. . 
: ROO74 6 ie THIS SOFTWARE IS FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED . 
; kROO75 O 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | 
; kROO7 8 '‘® INCLUSION OF THe ABOVE copynieut NOTICE. THIS SOFTWARE OR ANY OTHER * 

; kROO7 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; ROO78 O '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; 444 0 :* TRANSFERRED. : 

: .* 

: kO0O81 8 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; ROOB2 O 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; iF 8 os CORPORATION. : 

: ROOBS 0 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; kRO086 0 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

oe 

: ROOB89 O i eeeeereeeeeeereeeeeeeeeteneeereteeeeteeterereteeteeeeeeereeeeeeeeeeeeeneeene 

; ROO9O O ' 

; ROOST O : 

; Roos OO 

: R009 0 FACILITY: VAX RPG II 

: R0096 0 i ABSTRACT: 

: ROO98 0 : This is a common definition file for VAX RPG II. ALL definitions 

; ROO99 O : of data structures that must be known by the compiler and the 

; kRO100 O : generated code and RTL support should be included here. 

: Aided 8 his file should be required in COMLIB.REQ. 

; RO105 0 i ENVIRONMENT: VAX/VMS user mode | 
: RO105 9 AUTHOR: D. Braffitt, CREATION DATE: 12-Nov-1982 

: ROO 0 ' MODIFIED BY: 

: R0109 6 i 1-001 Original DJB 12-Nov-1983 
: kRO110 O : = aad RPGSL_ CTX_ERROR LPT 14-Feb-198 
; RO111 O : 1-00 o ee a control block macros LPT 18-Mar-198 
3 aos 0 ‘ 1-004 4o4 PG R_SUBSC LPT 24-Mar-198 
; ROIS O : 1-005 Add support for record control/sequence check 
3; RO1146 8 ! blocks: ae RPGS IOEXCEPTION error location 

3; RO115 ! add current CTX grea ID DJB 11-Apr-1983 

: ROTI6 0 ! i ..* ROSS at “bRINTER should be DJB 12-Apr-198 

3; RO11 ‘ 1-00 $v- R DJB 14-Apr-19 
: apts ' 1-00 Change RPCSA, RCo EXTFL to RPGSA_RCB_EXTFLD LPT ep-Apr=12 
: ROM 1-00 a" RPcSv LPT 10-Jun-19 | 
; ais 8 ‘ 1-010 ao cB — Mace fields LPT 1 ejune ios 

: = RO121 ! 1-011 ay grea _RCB_CNTRLF LPT 22-Jun-19 


—2D 


c -1984 VAX-11 Bliss-32 V4.0-7 Page 
ep- i + DEF .REQ; 
16: ~3een18hs 93:28: 3F | Best BkS es rRe Nt skCSepcper neos1 29 
' \- \¢ Add aresy CTX_OVPEND LPT g-dutol2 
: 1-01 orrect ga geotent area offsets DJB 05-Jul-19 
' 1-014 Add Sbtsp ty DJB 20-Jul-19 
1-015 Delete RPG A echk RATCHAREA LPT 21-Nov-19 


i Definitions for the RPG II file context area 

! This area is allocated in PSECT S$LOCAL f Oh the compiler 

for each tile immediately preceding the RAB. The actual size allocated 
i depends on the file type. 


—Zz 


SOOOOCOOCOSOCOSOOOSCOOSOSOSOSSOSSOSSOOOSOOOSCSOOCOCCOOOOOOOCOOOO OOOO OOOCOOOO 


LIT 


RO 
RPGSW_CTX_FLAGS= 
RPGS$V_CTX_UOFF= 


RPG$V_CTX_EOF= 
RPG$V_CTX_LOOKAH= 


RPGSV_CTX_RNF= 
RPGS$B_CTX_ID= 
RPGSL_CTX “ERROR= 
RPGS$A_CTX_SCB= 


RPGSA_CTX_READ= 
RPGSA_CTX_CRCB= 


RPGSA_CTX_OVIND= 
RPGSW_CTX_FL= 


RPGSW_CTX_LINE= 
PG$W_CTX_PFLAGS= 

RPGS$V_CTX_FIRST= 

RPGS$V_CTX_1PFORMS= 


RPGSV_CTX_OVLINE= 
RPGS$V~CTX~OVPEND= 
RPGSW~CTX~SKIPB= 
RPGSW_CTX_SKIPA= 
RPGS$W_CTX_SPACEB= 


RPGS$W_CTX_SPACEA= 


ERAL 


ee. . 
o oo Co 
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. 
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s om aa SS  _) 
2 
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es. . Oo 
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oooo Oo 9°O0O OC rs Fe vere 2 
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-24,0,16,0 %, 
-26,0,16,0 i, 
-28,0,16,0 2; 


ooc— 
ees 8 8 


$8 


Fla 
TRU 


bits 
f file is conditione 
rnal indicator which 
f file is at end of 
TRUE onty if file is an input f 
which contains leck~shead’ fields 
TRUE only if Last attempt to read from 
file resulted in record not found 
Version number 
Error number for RPG detected errors 
Address of current entry in the 
sequence rere, block 
Address of the READ routine 
Address of the current record control 


oc 
Address of the overflow indicator for 
this PRINTER file 
# of Lines on s* jcat | page (1-112) 
Overflow Line 
Current Line ps dated page 
Flags for print control 
TRUE only before first write to file 
TRUE only if first page forms 

post renios has been requested 
TRUE is this is an over} ou Line 
TRUE if overflow is penesen ng 
* 3° pines to space before printing 
# of lines to space after printing 
Line ouster to skip to before printing 


Line number to skip after printing 
(1-112) 


Current CTX area id 

Size of context area for output files 
Size of context area for printer files 
Size of context area for input and 
update files 


ie ict aint its dane ay 
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; RO177 O ‘+ 

; kO178 i Definitions for the RPGII file rgcore. a gt and Preeee check blocks. 

; kO179 i This area is allocated in PSECT $LO by the comp 

; i 44 8 R for each input and update file cnanteas ¥ following. the record buffer. 

3 ROB 0 

; ROWS O MACRO 

; RO184 0 RPGSA_RCB_RECID= 0,0,32,0 2, ! Addr of record identifying indicator 

; RO185 8 RPGSA_RCB_EXTFLD= 4°0°3 .0 %, |! Addr of extract field routine 

; RO} RPGSA_RCB_MATCH_RTN= 8,0,52,0 %, ! Addr of match field compare and 

; ROG? O ' extract code 

; RO} 0 PGSA_RCB_CFR= 12-8 3268 %, ! Addr of control field compare routine 
; RO189 O PG$W_RCB_FLAGS= 16,0,16,0 %, ! Record control block flag bits 

: RO190 0 RPGS$V-RCB~SEQ= 16.0.1. %, | TRUE if record type is seq checked 

; kO191 O RPG$V_RCB_MATCH= 16,1,1,0 %, ! TRUE if record type has match fields 

: dP 8 RPG$V_RCB_CNTRLF= 16,2,1,0 %, ! TRUE if record type has control fields 
; RO194 O RPGS$A_SCB_RCB= 0,0,32,0 %, ! Address of the RCB of the record which 
; RO19S5 O ! is the current record in che ,ganeones 
; ROI 0 RPG$B_SCB_FLAGS= 4,0,8,0 %, ' Sequence control block flag bi 

; kO197 O RPG$V_SCB_OPT= 4,0,1,0 %, ' TRUE if record type is opt ie 

; kO198 O RPG$V_SCB_NO= 4,1,1,0 %, ! —~ if more than one of this record 

3 0199 0 ! type may be present 

; kRO200 0 RPG$V_SCB_1SEEN= 6,2,1,8 8, | " if one of the current record type 
; RO201 O ! as been seend 

; kRO202 O RPG$V_SCB_LAST= 4,3,1,0 %: ! 

; RO203 O ! and RPGSA_SCB_RCB contains 

; RO2046 O ! address of the ist element “y the SCB 
; kRO205 O 

; RO206 O LITERAL . 

; kRO207 0 RPGS$S_RCB= 18, ! Size of record control block 

; RO208 O RPG$S_SCB= 3 ! Size of sequence check block 


TRUE if this is the end of the table 
| 
| 
| 


—z 
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Definitions for RPG error grew on 

The address of the program control block is found in RPG$A_PCB 
which is found offset from the frame pointer. 

For version 1, the only field in the program control block 

is the internal version number. 


0 
RPGSA_PCB= -4,0,32,0 %, ! Address of program control block 
RPG$B_PCB_ID= 0,0,8,0 %;\ | Version number 


t+ 
! Definitions of first parameter to RPGSIOEXCEPTION to describe where 
: to find 10 error. 


POMPOM NONONININ) 2 oe 


DDDDAAADDBDAADAADAAADAAAWAAAD 


pelo folefolololololoflaflelololololoflolololo) 


LITERAL 
RPGSK_ERR_RAB= 1, ! Condition value in RAB field 
RPGS$K_ERR_F AB= ae ' Condition value in FAB field 
RPGSK_ERR_F ILE_CNTXT= (33 ! Condition value in file context area 


POPOPOPIPIPOPIPOPOPOR HOPoPonopnofnofnopnpnfrors 


14 
Definition of Literal for error passed to RPGSERROR 


po] 
o 
Mr 
Ww 


LITE 


GOOCOCOCGCCOCCOOSOOCOOCOOOOOOOOCOOOOoO 


RAL 
RPG$K_ERR_SUBSC= $3 ! Same as COBOL for now 


—D 


N 15 
19° Sep- 
1 ~8ep 
oeei 0 
0238 0 ! End of file RPGLIB.REQ 
Library Statistics 
seinem Symbols -------- 
File Total ioaded Percent 
-$255$DUA28: CSYSLIBJSTARLET.L32;1 9776 0 0 


COMMAND QUALIFIERS 
BLISS/LIBRARY=LIB$:/LIST=LIS$:/SOURCE=REQUIRE SRC$:RPGLIB 


; Run Time: 00:03.4 

; Elapsed Time: 00:15.5 

; Lines/CPU Min: 426 

; Lexemes/CPU-Min: eeoee 

; Memory Used: popes 

; i torery Precompilation Complete 


71984 28:49:38 


Pages 
Mapped 


581 


——_—————_ 


VAX-11 Bliss-32 V4.0- 7 
VES SSDOALES CRPGKTL SRCSRPGLIB. REQ;1 ree (1) 
Processing 
Time 

00:01.1 
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QUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY _ 


